close all
p=[5 3];
o=[0 0];

v1=[1 2];
a=p-10*v1;
b=p+10*v1;
ceuArrow(a,b,'r',2,'-',0)
axis square
axis([-1 12 -8 7])
ceuArrow([-1 0],[12 0],'b',1)
ceuArrow([0 -8],[0 7],'b',1)
ceuArrow(o,v1,'r',2)
grid on
xlabel('x_1')
ylabel('x_2')

v2=[1 -1/2];
a=p-13*v2;
b=p+13*v2;
ceuArrow(a,b,'g',2,'-',0)
ceuArrow(o,v2,'g',2)

text(6.75,5,'l_1')
text(9,1.4,'l_2')
text(11,0.3,'11')
text(-0.7,5.2,'5.5')
text(-0.6,-7,'-7')
text(2.85,0.3,'3.5')
text(v1(1)+0.1,v1(2)+0.1,'v_1')
text(v2(1)+0.1,v2(2)-0.1,'v_2')
text(4.4,3.7,'(5,3)')

